home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Monster Media 1996 #15
/
Monster Media Number 15 (Monster Media)(July 1996).ISO
/
win_utl2
/
sw14da.zip
/
MOU105.ZIP
/
PTEST.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1991-01-27
|
4KB
|
124 lines
{****************************************************************************
* PROJECT: Mouse routines with 'real' graphic cursor in text mode.
*****************************************************************************
* MODULE: PTEST.PAS
*****************************************************************************
* DESCRIPTION:
* Test program - translation of TEST.C to Turbo Pascal
*
*
*****************************************************************************
* MODIFICATION NOTES:
* Date Author Comment
* 26-Oct-1990 dk Initial file.
* 07-Jan-1991 dk Fixed bugs and set up for release to Usenet.
* 09-Jan-1991 dm Translated to TP; uses direct writes instead of ANSI
* 27-Jan-1991 dk Cleaned up the translation.
*****************************************************************************
*
* DISCLAIMER:
*
* Programmers may incorporate any or all code into their programs,
* giving proper credit within the source. Publication of the
* source routines is permitted so long as proper credit is given
* to Dave Kirsch.
*
* Copyright (C) 1990, 1991 by Dave Kirsch. You may use this program, or
* code or tables extracted from it, as desired without restriction.
* I can not and will not be held responsible for any damage caused from
* the use of this software.
*
*****************************************************************************
* This source works with Turbo Pascal 6.0
****************************************************************************}
uses
Crt,
Mou;
var
m : minforectype;
const
oldmx : integer = -1;
oldmy : integer = -1;
begin
MOUinit;
MOUshow;
if (not mouseinstalled) then
begin
writeln('Please install your mouse driver before running this test ',
'program.');
halt;
end;
MOUhide;
clrscr; { Clear the screen. }
gotoxy(1,5); write('Click here [■] with left mouse button to quit.');
gotoxy(1,7); write('Mouse routine demonstration program [Turbo Pascal 6.0 Version].');
gotoxy(1,8); write('With ''true'' EGA/VGA mouse cursor.');
gotoxy(1,9); write('Copyright (C) 1990, 1991 by Dave Kirsch [a563@mindlink.UUCP].');
gotoxy(1,10); write('Pascal translation by Duncan Murdoch [dmurdoch@watstat.waterloo.edu].');
MOUshow;
repeat
if (mousex <> oldmx) or (mousey <> oldmy) then
begin
oldmx := mousex;
oldmy := mousey;
MOUconditionalhide(0, 0, 50, 0);
gotoxy(1,1); write('Mouse position: ',mousex:3,', ', mousey:3);
MOUshow;
end;
if (MOUcheck) then
begin { If mouse event waiting in buffer... }
MOUget(m);
MOUconditionalhide(0, 1, 50, 2);
if (m.buttonstat and LEFTBPRESS) <> 0 then
begin
gotoxy(1,2);
write('Left button pressed at ',m.cx:3,', ', m.cy:3);
end;
if (m.buttonstat and LEFTBRELEASE) <> 0 then
begin
gotoxy(1,2);
write('Left button released at ',m.cx:3,', ', m.cy:3);
end;
if (m.buttonstat and RIGHTBPRESS) <> 0 then
begin
gotoxy(1,3);
write('Right button pressed at ',m.cx:3,', ', m.cy:3);
end;
if (m.buttonstat and RIGHTBRELEASE) <> 0 then
begin
gotoxy(1,3);
write('Right button released at ',m.cx:3,', ', m.cy:3);
end;
if (m.buttonstat and MIDBPRESS) <> 0 then
begin
gotoxy(1,4);
write('Middle button pressed at ',m.cx:3,', ', m.cy:3);
end;
if (m.buttonstat and MIDBRELEASE) <> 0 then
begin
gotoxy(1,4);
write('Middle button released at ',m.cx:3,', ', m.cy:3);
end;
MOUshow;
if ((m.buttonstat and LEFTBPRESS) <> 0)
and (m.cx > 11) and (m.cx < 14) and (m.cy = 4) then
begin
MOUdeinit;
clrscr; { Clear the screen. }
halt;
end
end
until false;
end.